home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / phonelist.tex < prev    next >
Encoding:
Text File  |  1991-05-21  |  7.4 KB  |  196 lines
  1. %
  2. % Copyright 1990, Daniel R. Greening.  Copying is permitted for any
  3. % non-commercial purpose as long as this copyright and the
  4. % documentation are retained on copies and derivative works.  No
  5. % warrantee is expressed or implied, and the author makes no claims
  6. % about the usefulness, applicability, or correctness of the program.
  7. %
  8. % Greening Phonelist TeX Format.
  9. %
  10. % This thing is pretty cool, if I do say so myself.  I've used it for
  11. % several years.  It formats phone numbers into a 9x9 block that looks
  12. % like the picture that follows.  The picture is simplified.  There is
  13. % enough room for decent sized names, long phone numbers (with area
  14. % or country-codes and extensions), and addresses with 9-digit
  15. % zipcodes.  Print out the phone list example included and you'll
  16. % see.
  17. %
  18. %     ------------------+------------------+------------------
  19. %    | sally W 784-7861    | dan   W 784-7861 | zeke  W 784-7861 |
  20. %    |       H 271-2629 |       H 271-2629 |       H 271-2629 |
  21. %    |   12 Foster Ct   |   12 Foster Ct   |   12 Foster Ct   |
  22. %    |   New York,NY 10 |   New York,NY 10 |   Topeka,KS 1054 |
  23. %    | georgeW 444-adff |                  | clem  W 444-adff |
  24. %    | schoolW 277-2222 |   KANSAS         | jethroW 277-2222 |
  25. %    | abe   W 331-3333 |                  | abigaiH 331-3333 |
  26. %    | ron   W 231-2341 | jeb   W 231-2341 | emmy  W 231-2341 |
  27. %    |          |           |                  |
  28. %     ------------------+------------------+------------------
  29. %    |   MICHIGAN       | dan   W 784-7861 |                  |
  30. %    | dan   H 463-5788 |       H 271-2629 |   WASHINGTON     |
  31. %    |   5582 Golfridge |   12 Foster Ct   |                  |
  32. %    |   Alma, MI,48801 |   Lansing,MI 432 | nancy W 234-2223 |
  33. %    |       W 623-3330 | georgeW 444-adff | georgeW 444-adff |
  34. %    | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
  35. %    | abe   W 331-3333 | abe   W 331-3333 | abe   W 331-3333 |
  36. %    | ron   W 231-2341 | ron   W 231-2341 | ron   W 231-2341 |
  37. %    |            |           |                  |
  38. %     ------------------+------------------+------------------
  39. %    | jeff  W 784-7861 |       W 784-7861 | jack  W 784-7861 |
  40. %    |       H 271-2629 |       H 271-2629 |       H 271-2629 |
  41. %    |   12 Foster Ct   |   12 Foster Ct   |   12 Foster Ct   |
  42. %    |   New York,NY 10 |   New York,NY 10 |   New York,NY 10 |
  43. %    | georgeW 444-adff | georgeW 444-adff | georgeW 444-adff |
  44. %    | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
  45. %    | abe   W 331-3333 | abe   W 331-3333 | abe   W 331-3333 |
  46. %    | ron   W 231-2341 | ron   W 231-2341 | ron   W 231-2341 |
  47. %    |            |           |              |
  48. %     ------------------+------------------+------------------
  49. %
  50. % I typically take the output and cut it along the horizontal dividing
  51. % lines, then staple the thing together on the left.  If you fold it
  52. % in half, it fits in a pocket or a largish wallet.  If you want to
  53. % stick it in a smaller wallet (and you are patient), you can tape the
  54. % horizontal strips end-to-end and fan-fold it.  It then occupies the
  55. % space of a credit-card.
  56. %
  57. % HOW TO USE:
  58. %
  59. % Precede lines that contain a country, state or province header with 
  60. %  ``$''.  This is an example header for the sovereign state of California:
  61. %
  62. %    $ CALIFORNIA
  63. %
  64. % Lines which contain a phone number work like this:
  65. %
  66. %    person-name ; cat ; phone-number
  67. %
  68. % The ``cat'' is typically a one or two letter abbreviation, as in
  69. % ``W'' for work, ``H'' for home, ``FX'' for FAX, ``P'' for parents,
  70. % etc.  The phone-number field defined in this macro package is large
  71. % enough to accommodate the number ``999-999-9999x9999''.  Here is an
  72. % example: 
  73. %
  74. %    Alan Turing      ; W ; 213-825-2266
  75. %                     ; H ; 914-784-7861
  76. %
  77. % Finally, you indicate an address with the prefix ``>''.  This simply
  78. % indents the text which follows by one \quad.  Here's a bigger
  79. % example:
  80. %
  81. %    $ CALIFORNIA
  82. %
  83. %    Alan Turing      ; W ; 213-825-2266
  84. %    > UCLA Computer Science Dept.
  85. %    > Los Angeles, CA 90024-1647
  86. %
  87. %                     ; H ; 914-784-7861
  88. %    > 1243 Blenheim Lane
  89. %    > Los Angeles, CA 90025
  90. %    
  91. % Blank lines essentially mean nothing when the occur between these
  92. % three constructs.
  93. %
  94. % If you want to include formatted paragraphs, you can do so, but you
  95. % must terminate them with ``\par'' or with a blank line.
  96. %
  97. % Enjoy.  If you make any interesting modifications, let me know.
  98. %
  99. % Dan Greening / dgreen@cs.ucla.edu
  100. %
  101. \font\rm=cmr5
  102. \font\bf=cmbx5
  103. % The following produces 3 column, 3 row output.
  104. \hsize=2.0in
  105. \vsize=3.0in
  106. \voffset=-0.75in
  107. \hoffset=-0.5in
  108. \newdimen\fullhsize\global\fullhsize=7.5in
  109. \newdimen\fullvsize\global\fullvsize=10.5in
  110. \newdimen\hboxsize\global\hboxsize=\hsize\advance\hboxsize by 0.5in
  111. \newdimen\vboxsize\global\vboxsize=\vsize\advance\vboxsize by 0.5in
  112. \def\fullhbox{\hbox to\fullhsize}
  113. \def\fullvbox{\vbox to\fullvsize}
  114. \newcount\colcount \global\colcount=11
  115. \newcount\rowcount \global\rowcount=5
  116. \baselineskip=6 pt plus 1pt
  117. \parindent 0pt
  118. \newcount\boxnum
  119. %
  120. % Define argument to accept ^^M as a terminator for a macro (such as
  121. % ;, $, and >.
  122. %
  123. \def\parsearg #1{\let\next=#1\begingroup\obeylines\futurelet\temp\parseargx}
  124. \def\parseargx{%
  125. \ifx \obeyedspace\temp \aftergroup\parseargdiscardspace \else%
  126. \aftergroup \parseargline %
  127. \fi \endgroup}
  128. {\obeyspaces %
  129. \gdef\parseargdiscardspace {\begingroup\obeylines\futurelet\temp\parseargx}}
  130. \gdef\obeyedspace{\ }
  131. \def\parseargline{\begingroup \obeylines \parsearglinex}
  132. {\obeylines %
  133. \gdef\parsearglinex #1^^M{\endgroup \next {#1}}}
  134. %
  135. \def\initcolbox#1 {\global\setbox#1=\vbox to\vboxsize{\hrule\vss\hbox %
  136. to\hboxsize{\vrule height\vboxsize\hfil\vrule height\vboxsize}\vss\hrule}}
  137. \def\initcolboxes{ \initcolbox11  \initcolbox12  \initcolbox13 \initcolbox14
  138.                    \initcolbox15 \initcolbox16 \initcolbox17
  139.            \initcolbox18 \initcolbox19 }
  140. \def\outputpage{\shipout\fullhbox{\fullvbox{\box11\vss\box14\vss\box17}\hss
  141.                                   \fullvbox{\box12\vss\box15\vss\box18}\hss
  142.                                   \fullvbox{\box13\vss\box16\vss\box19}}}
  143. \initcolboxes
  144. \output={
  145.   \global\setbox\colcount=\vbox to \vboxsize
  146.        {\hrule width\hboxsize\vss\hbox to \hboxsize
  147.            {\vrule height\vboxsize\hss\columnbox\hss\vrule height\vboxsize}
  148.            \vss\hrule width\hboxsize}
  149. % Current column is now saved.
  150.   \message{(\the\colcount)}
  151.   \ifnum\colcount=19
  152.         \global\colcount=11
  153.         \outputpage
  154.         \advancepageno
  155.     \initcolboxes
  156.      \else
  157.         \global\advance\colcount by 1
  158.      \fi
  159. % For the very end.
  160.   \ifnum\outputpenalty>-100000 \else
  161.      \supereject\outputpage\fi
  162. }
  163. \def\columnbox{\vbox to\vboxsize{\vfill\hbox{\vbox to\vsize{\unvbox255\vfill}}\vfill}}
  164. %
  165. % Here we define ``$'' ``>'' and ``;'' as active macro
  166. % characters.  They serve as separators for fields in our phone list.
  167. %
  168. \rm
  169.   \newdimen\widthb
  170.   \global\setbox0=\hbox{WE}
  171.   \widthb=\wd0
  172.   \newdimen\widthc
  173.   \global\setbox0=\hbox{999-999-9999x9999}
  174.   \widthc=\wd0
  175. %
  176. \catcode`\;=\active
  177. {
  178.   \catcode`\;=11
  179.   \gdef\phonelineyyy #1;#2;#3\finish{
  180.        \catcode`\;=\active\hfill
  181.        \hbox to\widthb{\hfil\ignorespaces #1\hfil}
  182.        \hbox to 0.05in{\hfil}
  183.        \hbox to\widthc{\ignorespaces #2\hfil}
  184.        \par}
  185.   \gdef\phoneline #1{\catcode`\;=11\phonelineyyy #1;;;\finish}
  186. }
  187. \outer\def;{\catcode`\;=11\parsearg\phoneline}
  188. %
  189. \catcode`\>=\active
  190. \def\addressline#1{\hbox to\hsize{\quad\ignorespaces #1\hfil}\par}
  191. \def>{\parsearg\addressline}
  192. %
  193. \catcode`\$=\active
  194. \def\arealine#1{\vbox to 1pt{\vfil}\hbox to\hsize{\hfil{\bf\ignorespaces #1}\hfil}\vbox to 1pt{\vfil}}
  195. \def${\parsearg\arealine}
  196.